home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Starsoft_X2106333172008.psc / Starsoft Xtreme Ultravires File Encrypter Source / frmAbout.frm < prev    next >
Text File  |  2008-02-25  |  4KB  |  125 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   " About"
  5.    ClientHeight    =   3705
  6.    ClientLeft      =   2340
  7.    ClientTop       =   1935
  8.    ClientWidth     =   6045
  9.    ClipControls    =   0   'False
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   1078.603
  15.    ScaleMode       =   0  'User
  16.    ScaleWidth      =   1123.685
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.PictureBox Picture1 
  20.       BackColor       =   &H00E0E0E0&
  21.       Height          =   2220
  22.       Left            =   105
  23.       ScaleHeight     =   2160
  24.       ScaleWidth      =   900
  25.       TabIndex        =   5
  26.       Top             =   105
  27.       Width           =   960
  28.       Begin VB.Image Image1 
  29.          Height          =   480
  30.          Left            =   120
  31.          Picture         =   "frmAbout.frx":0000
  32.          Top             =   720
  33.          Width           =   480
  34.       End
  35.    End
  36.    Begin VB.Frame Frame1 
  37.       Height          =   120
  38.       Left            =   105
  39.       TabIndex        =   4
  40.       Top             =   2520
  41.       Width           =   5790
  42.    End
  43.    Begin VB.CommandButton cmdOK 
  44.       Cancel          =   -1  'True
  45.       Caption         =   "OK"
  46.       Default         =   -1  'True
  47.       Height          =   362
  48.       Left            =   3840
  49.       TabIndex        =   0
  50.       Top             =   2760
  51.       Width           =   1365
  52.    End
  53.    Begin VB.CommandButton cmdSysInfo 
  54.       Caption         =   "&System Info..."
  55.       Height          =   362
  56.       Left            =   3840
  57.       TabIndex        =   1
  58.       Top             =   3240
  59.       Width           =   1350
  60.    End
  61.    Begin VB.Label lblDescription 
  62.       Caption         =   "Description"
  63.       Height          =   1380
  64.       Left            =   1200
  65.       TabIndex        =   6
  66.       Top             =   1080
  67.       Width           =   4635
  68.    End
  69.    Begin VB.Label lblTitle 
  70.       Caption         =   "Starsoft Xtreme                             Ultra File Encrypter"
  71.       BeginProperty Font 
  72.          Name            =   "MS Sans Serif"
  73.          Size            =   13.5
  74.          Charset         =   0
  75.          Weight          =   700
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       ForeColor       =   &H00FF0000&
  81.       Height          =   735
  82.       Left            =   1260
  83.       TabIndex        =   2
  84.       Top             =   0
  85.       Width           =   4725
  86.    End
  87.    Begin VB.Label lblVersion 
  88.       Caption         =   "Version 2.00.03"
  89.       Height          =   225
  90.       Left            =   1260
  91.       TabIndex        =   3
  92.       Top             =   720
  93.       Width           =   4725
  94.    End
  95. End
  96. Attribute VB_Name = "frmAbout"
  97. Attribute VB_GlobalNameSpace = False
  98. Attribute VB_Creatable = False
  99. Attribute VB_PredeclaredId = True
  100. Attribute VB_Exposed = False
  101. Option Explicit
  102.  
  103. Private Sub Form_Load()
  104. Me.lblDescription.Caption = "Encryption program to encrypt files and create Self-decrypting files  using the ULTRAVIRES v1.0.0 Cryptographic algorithm." & vbCrLf & vbCrLf & "Programming and design by Ajin Abraham"
  105. End Sub
  106.  
  107. Private Sub cmdSysInfo_Click()
  108. On Error Resume Next
  109. Dim SysInfoPath As String
  110. SysInfoPath = ReadKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Shared Tools\MSINFO", "PATH", "")
  111. If SysInfoPath = "" Then
  112.     SysInfoPath = ReadKey(HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Shared Tools Location", "MSINFO", "")
  113.     If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then
  114.         SysInfoPath = SysInfoPath & "\MSINFO32.EXE"
  115.         End If
  116.     End If
  117. Call Shell(SysInfoPath, vbNormalFocus)
  118. End Sub
  119.  
  120. Private Sub cmdOK_Click()
  121. Me.Hide
  122. End Sub
  123.  
  124.  
  125.